DatumIsEqual Function

private function DatumIsEqual(datum1, datum2) result(isEqual)

return .TRUE. if the two datums are equal

Arguments

Type IntentOptional Attributes Name
type(datum), intent(in) :: datum1
type(datum), intent(in) :: datum2

Return Value logical


Source Code

FUNCTION DatumIsEqual &
!
(datum1, datum2) &
!
RESULT (isEqual)

IMPLICIT NONE

!Arguments with intent(in):
TYPE (Datum), INTENT(IN) :: datum1, datum2

!Local declarations:
LOGICAL :: isEqual
!------------------end of declarations-----------------------------------------

IF (datum1 % ellipsoid == datum2 % ellipsoid .AND. &
    datum1 % dx == datum2 % dx .AND. &
    datum1 % dy == datum2 % dy .AND. &
    datum1 % dz == datum2 % dz ) THEN
    
    isEqual = .TRUE.
    
ELSE

    isEqual = .FALSE.
    
END IF

END FUNCTION DatumIsEqual